// ****************************************************************************
//
// Logic 1: Opening/intro
//
// ****************************************************************************

#include "defines.txt"

if (new_room) {
  load.pic(room_no);
  draw.pic(room_no);
  discard.pic(room_no);
  set.horizon(37);
  status.line.off();
  prevent.input();
  program.control();
  show.pic();
  set.text.attribute(12,0);
  display(20,16,"Wizaro");
  display(21,11,"By Allen Barrett");
  display(22,14,"Version 0.1");
  load.sound(2);
  sound(2,f50);
}
if (f50) {
  set(f14);
  clear.lines(22,24,0);
  stop.motion(o0);
  reset(f33);
  text.screen();
  set.cursor.char("_");
  set.text.attribute(14,0);
  display(3,12,"Hello apprentice.");
  display(6,7,"I shall require your name. ");
  get.string(s1,"   I'm  ",9,0,255);
  set.text.attribute(15,0);
  set.cursor.char(">");
  set.string(s2,m1);
  if (compare.strings(s1,s2)) {
  	set.string(s1,m2);
  }
  graphics();
  new.room(2);
}
#message 1 ""
#message 2 "Seth"
return();